home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / PICTURE.DO < prev    next >
Text File  |  1991-07-26  |  323b  |  15 lines
  1. #include "colors.do"
  2. /*
  3.     demonstrate the use of a picture within a GET field
  4. */
  5. w = currentWindow();
  6. clearGets(w);
  7. cls;
  8. a = "test";
  9. prompt = "Enter a value: ";
  10. say(w,5,5,prompt,len(prompt),7);
  11. f = new(Field,w,5,len(prompt)+5,"a",10,112);
  12. setPicture(f,"!!!!!!!!!!");
  13. read(w);
  14. ? "the value you entered was ",a;
  15.